home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1994 October / Macformat17.cdr / Shareware City / Developers / GAL ƒ / GAL examples / shift < prev    next >
Text File  |  1994-07-11  |  370b  |  22 lines
  1. ;GEM has no shift but you can can make one
  2. ; just use rotate
  3.     begin_code
  4.     copy        #127=>reg0    ; 7 ones 
  5.     copy        #16=>reg2        ; will shift it 16 bits (and disappear)
  6. looptop
  7.     jump:subroutine    shift
  8.     subtract    #1=>reg2
  9.     compare     #0=>reg2
  10.     jump:less    looptop
  11.     halt
  12.     noop
  13. shift    
  14.     rotate     reg0
  15.     and        mask=>reg0        ;1111...0
  16.     return
  17.     end_code
  18.     begin_data
  19. mask    constant -2
  20.     end_data
  21.     end
  22.